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BEGIN 

%% DELETE/ 
..COMMENT* 



FIL 

THI 
AND 
EXC 
WRI 

__.__& 

COP 

AA 



REAL 

SAVE 

FILE 

FILE 

FILE 

BOOLE 

LABEL 

REAL 

INCR, 

PC' 

X**** 



CDMMQ 
ARRAY 
IN SR 
OUT" 
OUT N 
AN BR 
RE 
BASE 

LIN 
PREVS 
***** 



CANDE 
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* 

* 
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ERR[Q 
CIFIL 

utfil" 
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ADSKCE 

* END 

E* LB 

EQ* S 
****** 



SOURCE PROGRAM, 6-70. %%% 

LX » a5.5.C.0/BS.7fl.Q._MAR!S.. XlV._.S.Y SJLM 

E ID: SYMBOL/DELETE TAPE 10= S 
S MATERIAL IS PROPRIETARY TC BU 

_IS_.NCI._IIL..aE B.£f.RQ.y„yi£_Di._.._u J £LD.it 

EPT IN ACCORDANCE WITH PROGRAM 
TTEN AUTHORIZATION Of- THE PAT_N 
J? J3A! fi_! _________ P.Q RAlJ Uii__ OLLR Q _______ M 1 



RE LE ASE * 

YM60L2/FILE000 * 
RKQUGHS CORPORATION * 

U.B_QliCLflS£Jl.. * 

LICENSE OR UPON * 
T DIVISION OF * 
CHI GAN 4 8 232 * 



YRIGHT (C) 1971* 1972 
3202 06 A.A_38665.Z 



BURROUGHS CORPORATION 



* 
* 
*J_ 



oooioooo 

00010100 
QOQ.L01 10 

oooiom 

00010112 
QQ.01DLU 

oooioua 

00010H5 
QfiOi_o_ix4 
00010U7 
00010118 
00010119 



U]*A*NC0l303#S#HARAMSC0H0Ji 
DISK SERIAL C 2 > * ) i 
DISK SERIAL' t 20 j 600] (2,10*30 



o»save n; 

O'SAVE X)i 

suppr ess* ok; 



REAL STREAM .PROCEDURE. H 

r***** 



DISK SERIAL C20J30 ] (2*30*30 
RESEQj. SFLG* MAkTaB, MRkFIL* 

* ecf; 

RESEO* EOFivlARK* HHAnGE* 

hmLi LR£C/. _(*£.___ N&EJL*. ftLHA.RAMS.*_ I_P_I_U_ a_Lia__fl__ 

RCESEG* STRTRESEQ* USER; 
******************************* 



%******> 
BEGI 

SI ..is 

Sit* 

Sis* 

...__ fc_LQ. 

X****** 

PROCEDU 
V-Aky.E_.I 

X****** 
PROCEDU 

_X_* *,*,.*** 

VALUE" N 

REAL A* 

BEGI 

BRAA 

end; 
x****** 

"reXlTst 

BEGI 

x****** 



*********** 



N 

FJ 3 

f; u 
f; n 

STREA 



* ** * * 
RE DI 
±S*D.i 
** *** 

RE TW 

* ** * * 

*"t; 
n*t; 

N _C0 

k" V* 



C SI l 
(Sit 
(SI» 

M_..PR 
** * * 

SKWA 

._E_LA 



= SI__ej.l-. 

*si+8); 
■si+8.; 

______Q_____L 



D B„__F____U/. VALUfc JU 

************************ 

H.lJaULC_Ei_D_ilittD.&i . .. 

oi*=loc f; os:swds; 
di»*loc hdr; ds*=kds; 
hdr ; 



********************** 
********************** 



******* 
IT(I»A* 
I__l_____J_ 



«* * * 
S*Q) 
L.M. 



♦♦A*****************' 



00010200 

00010300 

00010400 

00010500 

00010600 

00010700. 

00010800 

00010900 

ami 10.00 

ooouioo 

***00011200 
.00011300 

***oooinoo 

00011500 

O.QQ 116Q0 

00011700 
00011800 
0JLQ.il9.GQ. 



**** 
XQUT 
**** 



******* 

(A*N*7) 

******* 



********************** 

9 

RA.Y__U*_i;.-...CJlMMU.JU-CATJL(_ I -J._).; 



MMUN_ICAJE(- 

bodleanc'tT; 



**** 

; 

*** * 



11) 



******************** 
******************** 



***00012000 
00012100 
QC01 8 2.CLOL 



********************** 
********************** 



***00012300 
00012400 
__*_____L0J_____L_L 

00012600 
00012700 
00012800 



RE A M" "P R C E D U R E "TN P CO 

n si «=x; DI J*LCC INP 
******************** 



% MCP RETURNS 1 IF BREAK OCCURRED, 

********************** 



****************************************. 



NV(X)> 

CCJNV; DSJ=8 OCT; END 
******************** 



00012900 

00013000 

*** 0Q013100 



STREAM 
BEGI 



procedure outconvu' 
n sijsloc n; di«»a; 



nj; value n; 
dsj*8Dec; eno; 

% *** •* * * *** * * * ***** *** * * * * ********************* 



stream 

BEGI 
X****** 



procedure m 
n sissa; di 

*********** 



OVE(N*A,B); value n; 

»*b; ds:=n wds; end; 
*** ******* * *********** ** * * * * * 



********************** 



******************* * * * 



********************** 



stream prqcidure informuseh(A*n); value n; 

X****** 

begin loca l sv ; 



t ******* *********** ******************* *** 



********************** 



DIls 
SI is 

J_S_JL= 



end 

X****** 
STREA M, 



a; svi»di; 
sv; diissv; 

__ft______!!_8E____ 

STREAM proc 



si*=loc n; dsj=8DEC; Dl:*sv; 

8(IF SC = " " THEN 5 1 :*SI + 1 EL 
RJ3S_.PELXl.LD_x "______ ..._. 

EDURE INFQRMUSER; 

***************************** 



DSI=7FILL* 
nE DS:*ChR); 



00013200 
0001330C 

***00013400 
00013500 
00013600 

***00013700 
00013800 
00013900 

***0Q0140 00 
00014100 

***00014200 

0J_01410_0_ 

oooia^oo 

00014500 
QQ0H6Q_Q_ 



*********** 

PROCED URE MAKERRtERR*Nl*N2i; VALUE N1*N2 



********************** 

*■ __. 
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BEGIN LOCAL SV; 
. .. P.I.LrERP.; OS. ?.=.. L5L.LT. "SLQUtiv£ El £«ROK* H ; Sv:=DlJ 

SIJ*L0C Nl; DSl-8 dec; D.la.Vi 0SWFILL1 

Di:*SV; DI»»Dl+8; DS»»2LIT" -"; 
5-V * ■ Q I ; SI } _i_Q£ J_2 J. DS. 1* 8QE.C.; _ _D 1 Lr SlVJ. _D..S 1.5 7.FJ LL i 

END STREAM PROCEDURE MAKFRR> 

PROCEDURE ERR.DR(.Nli.Nli; VALUE J_l/J_ 2±_ R£Aj_ M# N2 > 

BEGIN 
MAK£RBC£8R*HA*.N2ii..JIl!lXILULt£fiaiflJj:JJilii._ _ 



END PROCEDURE ER 

%**************#*** 

.AXQjlaQ.;. DISKWAITCI 
USER is AC2J; 
0UTCONVCLlNE*Atl3.[ 

WRKFIL is At9] t l$ll 

IF MAKTAB l= (WRKFI 
FILL NEWTAB WITH 
FILL. SRCEFI.L WITH. 
FILL OUTFIL WITH 
IF RESEQ «■■ AT 5] NE 
...BEGIN _ 

STRTHESEOlsACSj; 

ENDRESEQ :-A[6]; 
1N.C.R !=AU1J 

BASE *»A[7] 

end; 

NPABARS I* A CI.].. 127. 

SUPPRESS l* AC13.C8 
READ SEEKCSRCEFIL[0 

-SJLG is,JF AC IX. 16 _i_ 

ELSE HDR(SRCEFILM) 
PREVSEQ ** NCT «- - 
EOF MARK 'slOQQGC'OQ.Q 
M0VE(9*A[21 ]* PARAMS 
NPARAMS:=NPARAMS-i; 

*_*....•. «..„....«.. «..*.,.» 



rcr; 

************************************** 

#.A*30f COMMON); * GET ESP RECORD 



******** 



4CJ8D; * DECIMAL LINE NUMBER 

.2.1. ?.. "is".; 

L AND aC13,L3*13 s 0) THEN * TAB FILE REQUIRED 
M "&«u ,, [6:36:i2]&LlNE[18:iO:l8 3>USER; 

...AC.3.3. A1.4J.J _ _ _ ., 

A[93, USER; * OUTPUT FILE NAME 

Q C ThEN 

% LOWER BOuNU F(Jh"kcIeqVen'cE 

% UPPER BOUND FUR RESEQUENCE 

X RL.S.E..ii.UE.iYC£..-i.^i;.R£K£.M: . 

- INCR; * RESEQ BASE 



J _... ;. 1 P..ARAM£X£fi_£.Q.UNl_. _._ 

:13 * It % SUPPRESS MESSAGES 

3); 

11=1 . 1 Jd.LH_.AlJJ * 1 3..U J . ■ _ 

f C 36*63 NEQ B* 

i; lrec »- o; 

ii; 
pcishrangf. :=-i; 



readsrce* 

X, 

readcsrcef 
srceseQ '!■ 

IF PC LSS 

_ BEG IN 

LRANGEJ 
IF PC L 
IF PARA 

hrangE J 

end; 
if srceseq 



lL#lO_ f BC*3)CEUF]i LREC :« LREC + 1J 

IF SFLG" THEN iNPcDNVtB[9JJ ELSE O r EC> 
NPARAMS THEN IF SRCESEQ Girt HkAnGE T H E i\ 



*******OOOlbOOO 
00U15100 
QQP152G.C 
00015300 
00015400 

000 155.0 D 

00015600 

*******00015700 

00.0 1.5 ago 

*******00015900 
00016000 

Jifl._U-Vi.QO.. 

00016200 

*******OOU16300 

00 01 6.40 Q 

00016500 
00016600 
QOO 16700 
00016800 
00016900 

0.0.0.170.00. 

00017100 
00017200 

0.0.0173.0.0 

00017400 
Q01U7S0Q 

0-00. 126-00 

00017700 
00017800 

QJ10.1I-9.0.Q. 

00018000 
00018100 

QM19.20Q,.. 

00018300 
00018400 

0.DQ185.0Q. 

00G18600 
00016700 
Q_Q018flOC 
00018966 
00019000 
00019100 



•HRANGE: bPARAMS [ PC » «PC*1 J > 

SS NPARAMS THEN % MORE PARAMETERS AVAILABLE 

MScpc+jiiUtu-i then in range specified 

• PAR AMS[ PCT-'pCTi ] .12 1 J 27 J i 
«EQ LRANGE THEN 



IF 



SRCESEQ 
BEGIN 
NOEL »* 

end; 

NCT J- NCT 

OUTSEQJ-IF 



LEO H R AN G E~T H E'N X D EL ETTT H I S~ RECORD 

ndel + i; go to readshce; 



IF RESEQ 
IF OK OR S 
If RESEQJ- 



+ i; X OUTPUT FILE RECORu COUNT 

ma kT ab and n ot sf_g then Inpcunvcbc? j j e l se srceseq; 



00019200 
00019300 
0Q0194Q 
00019S00 
00019600 
00019700 



THEN X RESEQUENCE THE FlLt 
RCE5EQ GEQ STRTRESEQ THEN 
OKf SRCESEQ LEQ ENDRESEQ THEN 



X RECORDS ARE IN RANGE 



00019800 

00019900 

0_3£2_O000_ 

00 20100 

00020200 

0002 0300 

00020400 

OQU2050G 

000 20 6_0 

OO02O>66 
00020800 
00020900 
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si 
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IF 



BE 
DU 
OU 
EN 
MA 
BE 
IF 



li 

:4 



PR 
IF 



; ' a l 



NC 

EN 

..H.B.IIE 

GO TO 

* # ♦ t » 

EOF; 
* » » • * 

IF MA 

B£ 

IF 



GIN 

TSEQ i~ 
TCONV(B 

d; 

KTAB TH 

GIN 
OUTSE0 
BEGIN 
IF NOT 
OUT5EQ 
OUTCON 
ENJDi ... 

EVSEQ J 

NPTR 5 

.BEGIN 

WRITEC 

NPTR»» 

end; 

NPTR] « 

d; % IF 

jtUUTEIL 

READSR 



BASE := RASE + INCH; % CALCULATE N 
C ?J, OUT S EG .).>„ 1 ..MOV L NUMBER T U JJ QUE 

EN % CHECK SEdi NUMBERS FIRST 

" i' E Q P R E ;'VSEC~ f M EN *~ OUT ~U F ' ~S EOU I N C E 

BRAAK THEN ERRQ R(PREVSta »OtTSEfl)J .. 
l» PREVSEQ + 2; % ADJUST SEQUENCE 
V(B[9]#0UTSEQ)J 



£* S 
NCE 



E«. 
FIEL 



NUMBER 
D 



* T£li_lH£_liS£K 

NUMBER 



» outseq; 

« NPTR + 1 GTp 29 THEN A SEGMENT IS Flu.UEC 



NEWTAB#3C»NC*] >; 

o; 



= & N 
MAKTAB 

#i.Q.*.ec-* 
ce; 



C T C 4 : 3 2 ! 1 6 -J & 0UTiE(JL2l :21 :2 

JJJ 



7 1} 



Nf 
WR 
RE 

NC 

WR 

uo 

EN 
Cl USE 
IF NO 

BE 

CO MM 6 
END p 

END;E 



KTAB T 

GIN - 
NPTR: 
BEGIN 

MJ IE 
NPTRl 

end; 

NPJR] J 
ITECNE 
ADCNEW 
03»«NC 

ff'ECNE 
CKCNEW 

d; 

(SRCEF 
T SUPP 
GIN IN 

N ':"='"' n 
ROGRAM 
ND. 



HEN 

= NPTR + r 

CNEWTAB* 

■ 61 

■EOF* ARK 
WTaB*30/ 
TABC0)#3 
t; % EOF 
WTABCOJ, 

tab**); 
iulT Toe 

RESS THE 

formuser 
6el1" 



GTR 29 THEN 
3C*NC*3); 



NC*]); 

0»NC*])' 
POINTER 



KCOUTFIL**); 

N 

CA,NDEU );_TWX0UT(AC0)*26»li; 



end; 
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00024900 
00025000 
0002 5100 
00025200 
00025300 
999V9999 
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